﻿Imports System.Data.SqlClient
Public Class DF01_VA
    Inherits Conexion
    Dim cmd As New SqlCommand
    Public Function guardar(ByVal dts As Entidades.EF01Vehiculo) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_guardar_F01VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.dominioo)
            cmd.Parameters.AddWithValue("@porcentajetit", dts.porcentajetitt)
            cmd.Parameters.AddWithValue("@apenomden", dts.apenomdenn)
            cmd.Parameters.AddWithValue("@calle", dts.callee)
            cmd.Parameters.AddWithValue("@numero", dts.numeroo)
            cmd.Parameters.AddWithValue("@piso", dts.pisoo)
            cmd.Parameters.AddWithValue("@dpto", dts.dptoo)
            cmd.Parameters.AddWithValue("@codpostal", dts.codpostall)
            cmd.Parameters.AddWithValue("@loccap", dts.loccapp)
            cmd.Parameters.AddWithValue("@partdpto", dts.partdptoo)
            cmd.Parameters.AddWithValue("@provincia", dts.provinciaa)
            cmd.Parameters.AddWithValue("@argnndni", dts.argnndnii)
            cmd.Parameters.AddWithValue("@argnnle", dts.argnnlee)
            cmd.Parameters.AddWithValue("@argnnlc", dts.argnlcc)
            cmd.Parameters.AddWithValue("@extrdni", dts.extrdnii)
            cmd.Parameters.AddWithValue("@extrci", dts.extrcii)
            cmd.Parameters.AddWithValue("@extrpasaporte", dts.extrpasaportee)
            cmd.Parameters.AddWithValue("@numdoc", dts.nudocc)
            cmd.Parameters.AddWithValue("@autoridad", dts.autoridadd)
            cmd.Parameters.AddWithValue("@fechanacdia", dts.fechanacdiaa)
            cmd.Parameters.AddWithValue("@fechanacmes", dts.fechanacmess)
            cmd.Parameters.AddWithValue("@fechanacaño", dts.fechanacañoo)
            cmd.Parameters.AddWithValue("@soltero", dts.solteroo)
            cmd.Parameters.AddWithValue("@casado", dts.casadoo)
            cmd.Parameters.AddWithValue("@viudo", dts.viudoo)
            cmd.Parameters.AddWithValue("@divorciado", dts.divorciadoo)
            cmd.Parameters.AddWithValue("@numnupcia", dts.numnupciaa)
            cmd.Parameters.AddWithValue("@apenomcony", dts.apenomconyy)
            cmd.Parameters.AddWithValue("@personeria", dts.personeriaa)
            cmd.Parameters.AddWithValue("@numinsc", dts.numincc)
            cmd.Parameters.AddWithValue("@fechainscdia", dts.fechainscdiaa)
            cmd.Parameters.AddWithValue("@fechainscmes", dts.fechainscmess)
            cmd.Parameters.AddWithValue("@fechainscaño", dts.fechainscañoo)
            cmd.Parameters.AddWithValue("@optasi", dts.optasii)
            cmd.Parameters.AddWithValue("@optano", dts.optanoo)
            cmd.Parameters.AddWithValue("@porcentajecond", dts.porcentajecondd)
            cmd.Parameters.AddWithValue("@apenomdenc", dts.apenomdencc)
            cmd.Parameters.AddWithValue("@callec", dts.callecc)
            cmd.Parameters.AddWithValue("@numeroc", dts.numerocc)
            cmd.Parameters.AddWithValue("@pisoc", dts.pisocc)
            cmd.Parameters.AddWithValue("@dptoc", dts.dptocc)
            cmd.Parameters.AddWithValue("@codpostalc", dts.codpostalcc)
            cmd.Parameters.AddWithValue("@loccapc", dts.loccapcc)
            cmd.Parameters.AddWithValue("@partdptoc", dts.partdptocc)
            cmd.Parameters.AddWithValue("@provinciac", dts.provinciacc)
            cmd.Parameters.AddWithValue("@argnndnic", dts.argnndnicc)
            cmd.Parameters.AddWithValue("@argnnlec", dts.argnnlecc)
            cmd.Parameters.AddWithValue("@argnnlcc", dts.argnnlccc)
            cmd.Parameters.AddWithValue("@extrdnic", dts.extrdnicc)
            cmd.Parameters.AddWithValue("@extrcic", dts.extrcicc)
            cmd.Parameters.AddWithValue("@extrpasaportec", dts.extrpasaportecc)
            cmd.Parameters.AddWithValue("@numdocc", dts.numdoccc)
            cmd.Parameters.AddWithValue("@autoridadc", dts.autoridadcc)
            cmd.Parameters.AddWithValue("@fechanacdiac", dts.fechanacdiacc)
            cmd.Parameters.AddWithValue("@fechanacmesc", dts.fechanacmescc)
            cmd.Parameters.AddWithValue("@fechanacañoc", dts.fechanacañocc)
            cmd.Parameters.AddWithValue("@solteroc", dts.solterocc)
            cmd.Parameters.AddWithValue("@casadoc", dts.casadocc)
            cmd.Parameters.AddWithValue("@viudoc", dts.viudocc)
            cmd.Parameters.AddWithValue("@divorciadoc", dts.divorciadocc)
            cmd.Parameters.AddWithValue("@numnupciac", dts.numnupciacc)
            cmd.Parameters.AddWithValue("@apenomconyc", dts.apenomconycc)
            cmd.Parameters.AddWithValue("@personeriac", dts.personeriacc)
            cmd.Parameters.AddWithValue("@numinscc", dts.numinsccc)
            cmd.Parameters.AddWithValue("@fechainscdiac", dts.fechainscdiacc)
            cmd.Parameters.AddWithValue("@fechainscmesc", dts.fechainscmescc)
            cmd.Parameters.AddWithValue("@fechainscañoc", dts.fechainscañocc)
            cmd.Parameters.AddWithValue("@numfab", dts.numfabb)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamotorr)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummotorr)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasiss)
            cmd.Parameters.AddWithValue("@carrocnum", dts.carrocnumm)
            cmd.Parameters.AddWithValue("@uso", dts.usoo)
            cmd.Parameters.AddWithValue("@valoradq", dts.valoradqq)
            cmd.Parameters.AddWithValue("@diaadq", dts.diaadqq)
            cmd.Parameters.AddWithValue("@mesadq", dts.mesadqq)
            cmd.Parameters.AddWithValue("@añoadq", dts.añoadqq)
            cmd.Parameters.AddWithValue("@elemento", dts.elementoo)


            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

    Public Function modificar(ByVal dts As Entidades.EF01Vehiculo) As Boolean
        Try
            conectado()
            cmd = New SqlCommand("sp_editar_F01VA")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn
            cmd.Parameters.AddWithValue("@numform", dts.numformu)
            cmd.Parameters.AddWithValue("@dominio", dts.dominioo)
            cmd.Parameters.AddWithValue("@porcentajetit", dts.porcentajetitt)
            cmd.Parameters.AddWithValue("@apenomden", dts.apenomdenn)
            cmd.Parameters.AddWithValue("@calle", dts.callee)
            cmd.Parameters.AddWithValue("@numero", dts.numeroo)
            cmd.Parameters.AddWithValue("@piso", dts.pisoo)
            cmd.Parameters.AddWithValue("@dpto", dts.dptoo)
            cmd.Parameters.AddWithValue("@codpostal", dts.codpostall)
            cmd.Parameters.AddWithValue("@loccap", dts.loccapp)
            cmd.Parameters.AddWithValue("@partdpto", dts.partdptoo)
            cmd.Parameters.AddWithValue("@provincia", dts.provinciaa)
            cmd.Parameters.AddWithValue("@argnndni", dts.argnndnii)
            cmd.Parameters.AddWithValue("@argnnle", dts.argnnlee)
            cmd.Parameters.AddWithValue("@argnnlc", dts.argnlcc)
            cmd.Parameters.AddWithValue("@extrdni", dts.extrdnii)
            cmd.Parameters.AddWithValue("@extrci", dts.extrcii)
            cmd.Parameters.AddWithValue("@extrpasaporte", dts.extrpasaportee)
            cmd.Parameters.AddWithValue("@numdoc", dts.nudocc)
            cmd.Parameters.AddWithValue("@autoridad", dts.autoridadd)
            cmd.Parameters.AddWithValue("@fechanacdia", dts.fechanacdiaa)
            cmd.Parameters.AddWithValue("@fechanacmes", dts.fechanacmess)
            cmd.Parameters.AddWithValue("@fechanacaño", dts.fechanacañoo)
            cmd.Parameters.AddWithValue("@soltero", dts.solteroo)
            cmd.Parameters.AddWithValue("@casado", dts.casadoo)
            cmd.Parameters.AddWithValue("@viudo", dts.viudoo)
            cmd.Parameters.AddWithValue("@divorciado", dts.divorciadoo)
            cmd.Parameters.AddWithValue("@numnupcia", dts.numnupciaa)
            cmd.Parameters.AddWithValue("@apenomcony", dts.apenomconyy)
            cmd.Parameters.AddWithValue("@personeria", dts.personeriaa)
            cmd.Parameters.AddWithValue("@numinsc", dts.numincc)
            cmd.Parameters.AddWithValue("@fechainscdia", dts.fechainscdiaa)
            cmd.Parameters.AddWithValue("@fechainscmes", dts.fechainscmess)
            cmd.Parameters.AddWithValue("@fechainscaño", dts.fechainscañoo)
            cmd.Parameters.AddWithValue("@optasi", dts.optasii)
            cmd.Parameters.AddWithValue("@optano", dts.optanoo)
            cmd.Parameters.AddWithValue("@porcentajecond", dts.porcentajecondd)
            cmd.Parameters.AddWithValue("@apenomdenc", dts.apenomdencc)
            cmd.Parameters.AddWithValue("@callec", dts.callecc)
            cmd.Parameters.AddWithValue("@numeroc", dts.numerocc)
            cmd.Parameters.AddWithValue("@pisoc", dts.pisocc)
            cmd.Parameters.AddWithValue("@dptoc", dts.dptocc)
            cmd.Parameters.AddWithValue("@codpostalc", dts.codpostalcc)
            cmd.Parameters.AddWithValue("@loccapc", dts.loccapcc)
            cmd.Parameters.AddWithValue("@partdptoc", dts.partdptocc)
            cmd.Parameters.AddWithValue("@provinciac", dts.provinciacc)
            cmd.Parameters.AddWithValue("@argnndnic", dts.argnndnicc)
            cmd.Parameters.AddWithValue("@argnnlec", dts.argnnlecc)
            cmd.Parameters.AddWithValue("@argnnlcc", dts.argnnlccc)
            cmd.Parameters.AddWithValue("@extrdnic", dts.extrdnicc)
            cmd.Parameters.AddWithValue("@extrcic", dts.extrcicc)
            cmd.Parameters.AddWithValue("@extrpasaportec", dts.extrpasaportecc)
            cmd.Parameters.AddWithValue("@numdocc", dts.numdoccc)
            cmd.Parameters.AddWithValue("@autoridadc", dts.autoridadcc)
            cmd.Parameters.AddWithValue("@fechanacdiac", dts.fechanacdiacc)
            cmd.Parameters.AddWithValue("@fechanacmesc", dts.fechanacmescc)
            cmd.Parameters.AddWithValue("@fechanacañoc", dts.fechanacañocc)
            cmd.Parameters.AddWithValue("@solteroc", dts.solterocc)
            cmd.Parameters.AddWithValue("@casadoc", dts.casadocc)
            cmd.Parameters.AddWithValue("@viudoc", dts.viudocc)
            cmd.Parameters.AddWithValue("@divorciadoc", dts.divorciadocc)
            cmd.Parameters.AddWithValue("@numnupciac", dts.numnupciacc)
            cmd.Parameters.AddWithValue("@apenomconyc", dts.apenomconycc)
            cmd.Parameters.AddWithValue("@personeriac", dts.personeriacc)
            cmd.Parameters.AddWithValue("@numinscc", dts.numinsccc)
            cmd.Parameters.AddWithValue("@fechainscdiac", dts.fechainscdiacc)
            cmd.Parameters.AddWithValue("@fechainscmesc", dts.fechainscmescc)
            cmd.Parameters.AddWithValue("@fechainscañoc", dts.fechainscañocc)
            cmd.Parameters.AddWithValue("@numfab", dts.numfabb)
            cmd.Parameters.AddWithValue("@marca", dts.marcaa)
            cmd.Parameters.AddWithValue("@tipo", dts.tipoo)
            cmd.Parameters.AddWithValue("@modelo", dts.modeloo)
            cmd.Parameters.AddWithValue("@marcamotor", dts.marcamotorr)
            cmd.Parameters.AddWithValue("@nummotor", dts.nummotorr)
            cmd.Parameters.AddWithValue("@marcachasis", dts.marcachasiss)
            cmd.Parameters.AddWithValue("@carrocnum", dts.carrocnumm)
            cmd.Parameters.AddWithValue("@uso", dts.usoo)
            cmd.Parameters.AddWithValue("@valoradq", dts.valoradqq)
            cmd.Parameters.AddWithValue("@diaadq", dts.diaadqq)
            cmd.Parameters.AddWithValue("@mesadq", dts.mesadqq)
            cmd.Parameters.AddWithValue("@añoadq", dts.añoadqq)
            cmd.Parameters.AddWithValue("@elemento", dts.elementoo)



            If cmd.ExecuteNonQuery Then
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        desconectado()
    End Function

End Class
